home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / asm / XZN-ST03IntroS.lha / St03 / ST03FIX.s < prev    next >
Text File  |  1980-02-12  |  56KB  |  2,187 lines
  1. ******************************************************************************
  2. *        INTRO SHOWTIME 3 FIXED VERSION SBLINDO A DESTRA BY MODEM/X-ZONE         *
  3. *            ORA PROVIAMO A FIXARLA QUI AL TIG,SPEREM...             *
  4. ******************************************************************************
  5.  
  6.     SECTION    introcode,CODE
  7.     incdir    "df0:st3/"
  8.     include    "daworkbench.s"
  9.     include    "startup2.s"
  10.  
  11. WAITDISK    equ    0
  12.  
  13. DMASET    equ    %1000001110000000    ; copper, bitplane abilitati
  14.  
  15. START:
  16. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  17. *                INTROPART                      *
  18. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  19.     movem.l    d0-d7/a0-a6,-(SP)    ; setto la musica
  20.     lea    P61_data,a0    ; Indirizzo del modulo in a0
  21.     lea    $dff000,a6    ; Ricordiamoci il $dff000 in a6!
  22.     sub.l    a1,a1        ; I samples non sono a parte, mettiamo zero
  23.     sub.l    a2,a2        ; no samples -> modulo non compattato
  24.     lea    samples,a2    ; modulo compattato! Buffer destinazione per
  25.                 ; i samples (in chip ram) da indicare!
  26.     bsr.w    P61_Init
  27.     movem.l    (SP)+,d0-d7/a0-a6
  28.  
  29.     move.l    BaseVbr(PC),A1
  30.     move.l    #MyInt6c,$6C(A1)
  31.     move.w    #DMASET,$96(a5)        ; DMACON - abilita bitplane e copper
  32.     move.w    #$e020,$9a(a5)        ; INTENA - Abilito Master and lev6
  33.  
  34.     move.l    #TITOLO,d0
  35.     lea    BPLPOINTERS,A1    
  36.     moveq    #6-1,D7
  37.  
  38. POINTB:
  39.     move.w    d0,6(a1)
  40.     swap    d0
  41.     move.w    d0,2(a1)
  42.     swap    d0
  43.     add.l    #$2800,d0
  44.     addq.w    #8,a1
  45.     dbra    d7,POINTB
  46.  
  47.     move.l    #COPLIST,$dff080
  48.     move.w    d0,$dff088
  49.  
  50.     move.w    #0,$dff1fc
  51.     move.w    #$c00,$dff106
  52.  
  53.     clr.l    VBcounter
  54.  
  55. LOGOWBLANY1:
  56.     bsr.w    WBLAN
  57.  
  58.     bsr.w    MAINFADEINOUT
  59.  
  60.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  61.     beq.w    ESCI
  62.  
  63.     cmpi.l    #255,VBcounter
  64.     blo.s    LOGOWBLANY1
  65.  
  66.     clr.l    VBcounter
  67.  
  68. LOGOWBLANY2:
  69.     bsr.w    WBLAN
  70.  
  71.  
  72.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  73.     beq.w    ESCI
  74.  
  75.     cmpi.l    #465,VBcounter
  76.     blo.s    LOGOWBLANY2
  77.  
  78.     clr.l    VBcounter
  79.  
  80. LOGOWBLANY3:
  81.     bsr.w    WBLAN
  82.  
  83.     bsr.w    MAINFADEINOUT
  84.  
  85.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  86.     beq.w    ESCI
  87.  
  88.     cmpi.l    #255,VBcounter
  89.     blo.s    LOGOWBLANY3
  90.  
  91.     clr.l    VBcounter
  92.  
  93.  
  94.  
  95.  
  96. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  97. *                FLASH BIANCO                      *
  98. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  99.  
  100.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  101.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  102.  
  103.      move.w    d0,6(a1)    ; Copia la word bassa
  104.      swap    d0        ; Inverte il registro
  105.      move.w    d0,2(a1)    ; Copia la word alta
  106.      swap    d0        ; Inverte il registro
  107.  
  108.     move.l    #COPVUOTO,$80(a5)    ; Puntiamo la nostra 1a COP
  109.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  110.  
  111. WBLANY1:
  112.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  113.     beq.w    ESCI
  114.  
  115.     cmpi.l    #10,VBcounter
  116.     blo.s    WBLANY1
  117.  
  118.     clr.l    VBcounter
  119.  
  120. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  121. *            PRIMA PARTE: SFERA                      *
  122. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  123.  
  124.  
  125.     lea     BPLPOINTERS3,a1    ; Indirizzo Puntatori in a1
  126.     move.l    #SFERA,d0    ; Indirizzo Bitplanes in d0
  127.     moveq    #7,d1        ; Numero Bitplane 8
  128.  
  129. POINTBPa:
  130.      move.w    d0,6(a1)    ; Copia la word bassa
  131.      swap    d0        ; Inverte il registro
  132.      move.w    d0,2(a1)    ; Copia la word alta
  133.      swap    d0        ; Inverte il registro
  134.      add.l    #40*256,d0    ; Prossimo bitplane
  135.      addq.w    #8,a1        ; Prossimo puntatore ai bitplane
  136.      dbra    d1,POINTBPa    ; Ripetiamo il ciclo d1 volte
  137.  
  138.     move.l    #COPLIST3,$80(a5)    ; Puntiamo la nostra 1a COP
  139.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  140.  
  141. WBLANNY3:
  142.     bsr.w    WBLAN
  143.  
  144.     bsr.w    MAPPING
  145.     bsr.w    READ24BIT
  146.     bsr.w    ANIMAP
  147.     bsr.w    RIMBALZO
  148.  
  149.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  150.     beq.w    ESCI
  151.  
  152.     cmpi.l    #1080,VBcounter
  153.     blo.s    WBLANNY3
  154.  
  155.     clr.l    VBcounter
  156.  
  157. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  158. *                FLASH BIANCO                      *
  159. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  160.  
  161.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  162.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  163.  
  164.      move.w    d0,6(a1)    ; Copia la word bassa
  165.      swap    d0        ; Inverte il registro
  166.      move.w    d0,2(a1)    ; Copia la word alta
  167.      swap    d0        ; Inverte il registro
  168.  
  169.     move.l    #COPVUOTO,$80(a5)    ; Puntiamo la nostra 1a COP
  170.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  171.  
  172. WBLANY2:
  173.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  174.     beq.w    ESCI
  175.  
  176.     cmpi.l    #10,VBcounter
  177.     blo.s    WBLANY2
  178.  
  179.     clr.l    VBcounter
  180.  
  181. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  182. *            SECONDA PARTE: CREDITS                      *
  183. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  184.  
  185.     lea     BPLCREDITS,a1    ; Indirizzo Puntatori in a1
  186.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  187.  
  188.      move.w    d0,6(a1)    ; Copia la word bassa
  189.      swap    d0        ; Inverte il registro
  190.      move.w    d0,2(a1)    ; Copia la word alta
  191.      swap    d0        ; Inverte il registro
  192.  
  193.     move.l    #COPCREDITS,$80(a5)    ; Puntiamo la nostra 1a COP
  194.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  195.  
  196. WBLANNY4:
  197.     bsr.w    WBLAN
  198.  
  199.     BSR.W    PRINTCARATTERE
  200.     BSR.W    PRINTCARATTERE
  201.  
  202.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  203.     beq.w    ESCI
  204.  
  205.     cmpi.l    #790,VBcounter
  206.     blo.s    WBLANNY4
  207.  
  208.     clr.l    VBcounter
  209.  
  210. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  211. *                FLASH BIANCO                      *
  212. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  213.  
  214.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  215.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  216.  
  217.      move.w    d0,6(a1)    ; Copia la word bassa
  218.      swap    d0        ; Inverte il registro
  219.      move.w    d0,2(a1)    ; Copia la word alta
  220.      swap    d0        ; Inverte il registro
  221.  
  222.     move.l    #COPVUOTO,$80(a5)    ; Puntiamo la nostra 1a COP
  223.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  224.  
  225. WBLANY3:
  226.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  227.     beq.w    ESCI
  228.  
  229.     cmpi.l    #10,VBcounter
  230.     blo.s    WBLANY3
  231.  
  232.     clr.l    VBcounter
  233.     
  234. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  235. *            TERZA PARTE: TUNNEL                      *
  236. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  237.  
  238.     lea     BPLPOINTERS5,a1    ; Indirizzo Puntatori in a1
  239.     move.l    #TUNNEL,d0    ; Indirizzo Bitplanes in d0
  240.     moveq    #7,d1        ; Numero Bitplane 8
  241.  
  242. POINTBPb:
  243.      move.w    d0,6(a1)    ; Copia la word bassa
  244.      swap    d0        ; Inverte il registro
  245.      move.w    d0,2(a1)    ; Copia la word alta
  246.      swap    d0        ; Inverte il registro
  247.      add.l    #40*256,d0    ; Prossimo bitplane
  248.      addq.w    #8,a1        ; Prossimo puntatore ai bitplane
  249.      dbra    d1,POINTBPb    ; Ripetiamo il ciclo d1 volte
  250.  
  251.     move.l    #COPLIST5,$80(a5)    ; Puntiamo la nostra 1a COP
  252.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  253.  
  254. WBLANNY5:
  255.     bsr.w    WBLAN
  256.  
  257.     bsr.w    MAPPING
  258.     bsr.w    TUNNELREAD24BIT
  259.     bsr.w    ANIMAP
  260.     bsr.w    ONDULA
  261.  
  262.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  263.     beq.w    ESCI
  264.  
  265.     cmpi.l    #2280,VBcounter
  266.     blo.s    WBLANNY5
  267.  
  268.     clr.l    VBcounter
  269.  
  270. */*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
  271. *                FLASH BIANCO                      *
  272. *\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
  273.  
  274.     lea     BPLVUOTO,a1    ; Indirizzo Puntatori in a1
  275.     move.l    #VUOTO,d0    ; Indirizzo Bitplanes in d0
  276.  
  277.      move.w    d0,6(a1)    ; Copia la word bassa
  278.      swap    d0        ; Inverte il registro
  279.      move.w    d0,2(a1)    ; Copia la word alta
  280.      swap    d0        ; Inverte il registro
  281.  
  282.     move.l    #COPVUOTO,$80(a5)    ; Puntiamo la nostra 1a COP
  283.     move.w    d0,$88(a5)        ; Facciamo partire la 1a COP
  284.  
  285. WBLANNY6:
  286.     btst    #6,$bfe001    ; se premi il mouse ESCI!!!
  287.     beq.w    ESCI
  288.  
  289.     cmpi.l    #10,VBcounter
  290.     blo.s    WBLANNY6
  291.  
  292. ESCI:
  293. ;    clr.l    VBCOUNTER
  294.  
  295.     lea    $dff000,a6    ; stoppo la musica
  296.     bsr.w    P61_End
  297.     rts
  298.  
  299. ******************************************************************************
  300. ;            ROUTINE CHE ASPETTA IL VBL
  301. ******************************************************************************
  302.  
  303. WBLAN:
  304.     move.l    $dff004,d0
  305.     and.l    #$0001ff00,d0
  306.     cmp.l    #$00012b00,d0
  307.     bne.s    WBLAN
  308. WBLAN1:
  309.     move.l    $dff004,d0
  310.     and.l    #$0001ff00,d0
  311.     cmp.l    #$00012b00,d0
  312.     beq.s    WBLAN1
  313.     rts
  314.  
  315. ******************************************************************************
  316.             ; Interrupt level 3, VERTB...
  317. ******************************************************************************
  318.  
  319.     cnop    0,4
  320.  
  321. MyInt6c:
  322.     BTST    #5,$DFF01F
  323.     beq.s    NoIntVertb
  324.     MOVEM.L    D0-D7/A0-A6,-(SP)
  325.     ST    FrameFlagCounter
  326.     addq.l    #1,VBcounter
  327.     MOVEM.L    (SP)+,D0-D7/A0-A6
  328. NoIntVertb:
  329.     BTST    #4,$DFF01F
  330.     beq.s    NoIntCoper
  331.     MOVEM.L    D0-D7/A0-A6,-(SP)
  332.     MOVEM.L    (SP)+,D0-D7/A0-A6
  333. NoIntCoper:
  334.     MOVE.W    #$70,$DFF09C
  335.     RTE
  336.  
  337. *****************************************************************************
  338.  
  339. FrameFlagCounter:
  340.     dc.w    0
  341.  
  342.  
  343. AspettaFrameFlag:
  344.     SF    FrameFlagCounter
  345. StoFlaNon:
  346.     TST.B    FrameFlagCounter
  347.     BEQ.B    StoFlaNon
  348.     RTS
  349.  
  350. AspettVBL:
  351.     cmp.b    #$40,$dff006
  352.     bne.s    AspettVBL
  353. AspettVBL2:
  354.     cmp.b    #$40,$dff006
  355.     beq.s    AspettVBL2
  356.     rts
  357.  
  358. *******************************************************************************
  359. ;        ROUTINE CONVERSIONE PALETTE 24BIT SFERA
  360. *******************************************************************************
  361.     
  362. READ24BIT:
  363.     lea    PALETTETUNNEL,a0    ; Indirizzo palette immagine in a0
  364.     lea    COLP0+2,a1        ; Indirizzo di partenza nibble alti
  365.     lea    COLP0b+2,a2        ; Indirizzo di partenza nibble bassi
  366.     moveq    #7,d6            ; 8 banchi di 32 colori
  367.     
  368. BANCHI:
  369.     moveq    #31,d7            ; 32 colori per banco
  370.     moveq    #0,d0            ; Azzeriamo d0,d2,d3
  371.     moveq    #0,d2
  372.     moveq    #0,d3
  373.         
  374. CONVERTI:
  375.     move.b    3(a0),d2        ; Bb in d2
  376.     andi.b    #%00001111,d2        ; nibble basso 0b
  377.     move.b    2(a0),d3        ; Gg in d3
  378.     lsl.b    #4,d3            ; 4 bit a sinistra per g0
  379.     ori.b    d2,d3            ; nibble 0b in d2 e g0 per gb in d3
  380.     move.b    d3,1(a2)        ; Copiamo il byte in copperlist
  381.     move.b    1(a0),(a2)        ; Rr in copperlist
  382.     andi.b    #%00001111,(a2)        ; nibble basso per 0r
  383. ;-------------------------------
  384.     move.b    3(a0),d2        ; Bb in d2
  385.     lsr.b    #4,d2            ; 4 bit a destra per 0b
  386.     move.b    2(a0),d3        ; Gg in d3        
  387.     andi.b    #%11110000,d3        ; nibble alto per g0
  388.     ori.b    d2,d3            ; 0B in d2 con G0 in d3 per gb in d3
  389.     move.b    d3,1(a1)        ; GB in copperlist
  390.     move.b    1(a0),d2        ; Rr in d2
  391.     lsr.b    #4,d2            ; destra di 4 bit per 0r
  392.     move.b    d2,(a1)            ; 0r in copperlist
  393.     addq.w    #4,a0            ; Prossimo colore palette sfera
  394.     addq.w    #4,a1            ; Prossimo registro colore nibble alti
  395.     addq.w    #4,a2            ; Prossimo registro colore nibble bassi
  396.     dbra    d7,CONVERTI        ; Ripetiamo il loop
  397.  
  398.     add.w    #(128+8),a1
  399.     add.w    #(128+8),a2
  400.     dbra    d6,BANCHI
  401.     rts
  402.  
  403. *******************************************************************************
  404. ;        ROUTINE CHUNKY PIXEL MAPPING SFERA-TUNNEL
  405. *******************************************************************************
  406.  
  407. MAPPING:
  408.     lea    CHUNKYPIC,a0        ; Indirizzo figura chunky in a0
  409.     lea    CHUNKYPALETTE,a1    ; Indirizzo palette figura Chunky in a1
  410.     lea    PALETTETUNNEL,a2    ; Indirizzo palette Tunnel in a2
  411.     add.w    CHUNKYOFFSET,a0        ; Aggiungiamo l` Offset
  412.     moveq    #0,d0            ; Puliamo d0
  413.     move.b    #255,d0            ; Numero loop: 256 pixel
  414.     moveq    #0,d2            ; Puliamo d2
  415.  
  416. MAPLOOP:
  417.     clr.l    d1
  418.     move.b    (a0)+,d1
  419.     lsl.w    #2,d1
  420.     add.l    a1,d1
  421.     move.l    d1,a3
  422.     move.l    (a3),(a2)+
  423.     dbra    d0,MAPLOOP
  424.     move.l    #0,PALETTETUNNEL
  425.     rts
  426.  
  427. *******************************************************************************
  428. ;        ROUTINE CHUNKY PIXEL AGGIORNAMENTO TEXTURE SFERA
  429. *******************************************************************************
  430.  
  431. ANIMAP:
  432.     cmpi.w    #0,CHUNKYOFFSET        ; Abbiamo raggiunto il margine inf?
  433.     bne.s    Nonazzera        ; Se no non azzera il flag direzione
  434.     move.w    #2656,chunkyoffset
  435.     rts
  436.  
  437. NONAZZERA:
  438.     subi.w    #16,CHUNKYOFFSET    ; +16 per riga precedente $f per rotaz!
  439.     rts                
  440.  
  441. *******************************************************************************
  442. ;            ROUTINE DI RIMBALZO SFERA
  443. *******************************************************************************
  444.  
  445. RIMBALZO:
  446.     lea    BPLPOINTERS3,A1
  447.     move.w    2(a1),d0
  448.     swap    d0
  449.     move.w    6(a1),d0
  450.     addq.l    #4,RIMTABPOINT
  451.     move.l    RIMTABPOINT(PC),a0
  452.     cmp.l    #FINERIMBALZTAB-4,a0
  453.     bne.s    NOBSTART2
  454.     move.l    #RIMBALZTAB-4,RIMTABPOINT
  455.  
  456. NOBSTART2:
  457.     move.l    (a0),d1
  458.     sub.l    d1,d0
  459.     lea    BPLPOINTERS3,a1
  460.     moveq    #7,d1
  461.  
  462. POINTBP2:
  463.     move.w    d0,6(a1)
  464.     swap    d0
  465.     move.w    d0,2(a1)
  466.     swap    d0
  467.     add.l    #$2800,d0
  468.     addq.w    #8,a1
  469.     dbra    d1,POINTBP2
  470.     rts
  471.  
  472. RIMTABPOINT:
  473.     dc.l    RIMBALZTAB-4
  474.  
  475. RIMBALZTAB:
  476.     dc.l    0,0,0,0,0,0,40,40,40,40,40,40,40,40,40
  477.     dc.l    40,40,2*40,2*40
  478.     dc.l    2*40,2*40,2*40,2*40,2*40
  479.     dc.l    3*40,3*40,3*40,3*40,3*40,4*40,4*40,4*40,5*40,5*40
  480.     dc.l    6*40,8*40
  481.     dc.l    -8*40,-6*40,-5*40
  482.     dc.l    -5*40,-4*40,-4*40,-4*40,-3*40,-3*40,-3*40,-3*40,-3*40
  483.     dc.l    -2*40,-2*40,-2*40,-2*40,-2*40
  484.     dc.l    -2*40,-2*40,-40,-40
  485.     dc.l    -40,-40,-40,-40,-40,-40,-40,-40,-40,0,0,0,0,0
  486. FINERIMBALZTAB:
  487.  
  488. *******************************************************************************
  489. ;        ROUTINE CONVERSIONE PALETTE 24BIT TUNNEL
  490. *******************************************************************************
  491.     
  492. TUNNELREAD24BIT:
  493.     lea    PALETTETUNNEL,a0    ; Indirizzo palette immagine in a0
  494.     lea    TUNNELCOLP0+2,a1    ; Indirizzo di partenza nibble alti
  495.     lea    TUNNELCOLP0b+2,a2    ; Indirizzo di partenza nibble bassi
  496.     moveq    #7,d6            ; 8 banchi di 32 colori
  497.     
  498. TUNNELBANCHI:
  499.     moveq    #31,d7            ; 32 colori per banco
  500.     moveq    #0,d0            ; Azzeriamo d0,d2,d3
  501.     moveq    #0,d2
  502.     moveq    #0,d3
  503.         
  504. TUNNELCONVERTI:
  505.     move.b    3(a0),d2        ; Bb in d2
  506.     andi.b    #%00001111,d2        ; nibble basso 0b
  507.     move.b    2(a0),d3        ; Gg in d3
  508.     lsl.b    #4,d3            ; 4 bit a sinistra per g0
  509.     ori.b    d2,d3            ; nibble 0b in d2 e g0 per gb in d3
  510.     move.b    d3,1(a2)        ; Copiamo il byte in copperlist
  511.     move.b    1(a0),(a2)        ; Rr in copperlist
  512.     andi.b    #%00001111,(a2)        ; nibble basso per 0r
  513. ;-------------------------------
  514.     move.b    3(a0),d2        ; Bb in d2
  515.     lsr.b    #4,d2            ; 4 bit a destra per 0b
  516.     move.b    2(a0),d3        ; Gg in d3        
  517.     andi.b    #%11110000,d3        ; nibble alto per g0
  518.     ori.b    d2,d3            ; 0B in d2 con G0 in d3 per gb in d3
  519.     move.b    d3,1(a1)        ; GB in copperlist
  520.     move.b    1(a0),d2        ; Rr in d2
  521.     lsr.b    #4,d2            ; destra di 4 bit per 0r
  522.     move.b    d2,(a1)            ; 0r in copperlist
  523.     addq.w    #4,a0            ; Prossimo colore palette sfera
  524.     addq.w    #4,a1            ; Prossimo registro colore nibble alti
  525.     addq.w    #4,a2            ; Prossimo registro colore nibble bassi
  526.     dbra    d7,TUNNELCONVERTI        ; Ripetiamo il loop
  527.  
  528.     add.w    #(128+8),a1
  529.     add.w    #(128+8),a2
  530.     dbra    d6,TUNNELBANCHI
  531.     rts
  532.  
  533. *******************************************************************************
  534. ;            ROUTINE DI ONDULAMENTO SCHERMO
  535. *******************************************************************************
  536.  
  537. ONDULA:
  538.     lea    CON1EFFETTO+8,a0
  539.     lea    CON1EFFETTO,a1
  540.     move    #128,d2
  541. SCAMBIA:
  542.     move.w    (A0),(A1)
  543.     addq.w    #8,a0        
  544.     addq.w    #8,a1        
  545.     dbra    d2,SCAMBIA    
  546.  
  547.     move.w    CON1EFFETTO,ULTIMOVALORE
  548.     rts            
  549.  
  550. VBcounter:
  551.     dc.l    0
  552. *******************************************************************************
  553. ;            ROUTINE DI FADE AGA
  554. *******************************************************************************
  555.  
  556. MAINFADEINOUT:
  557.     bsr.w    CALCOLAMETTICOL
  558.  
  559.     btst.b    #1,FLAGFADEINOUT
  560.     bne.s    FADEOUT
  561.  
  562. FADEIN:
  563.     addq.w    #1,MULTIPLIER
  564.     cmp.w    #255,MULTIPLIER
  565.     bne.s    NONFINITO
  566.     bchg.b    #1,FLAGFADEINOUT
  567.  
  568. FADEOUT:
  569.     subq.w    #1,MULTIPLIER
  570.     bne.w    NONFINITO
  571.     bchg.b    #1,FLAGFADEINOUT
  572.  
  573. NONFINITO:
  574.     rts
  575.  
  576. FLAGFADEINOUT:
  577.     dc.w    0
  578.  
  579. MULTIPLIER:
  580.     dc.w    0
  581.  
  582. TEMPORANEO:
  583.     dc.l    0
  584.  
  585. CALCOLAMETTICOL:
  586.     lea    TEMPORANEO(pc),a0
  587.     lea    LOGOCOLP0+2,a1
  588.     lea    LOGOCOLP0B+2,a2
  589.     lea    PALETTEPIC(pc),a3
  590.     moveq    #8-1,d7
  591.  
  592. CONVERTIPALETTEBANK:
  593.     moveq    #0,d0
  594.     moveq    #0,d2
  595.     moveq    #0,d3
  596.     moveq    #32-1,d6
  597.  
  598. DALONGAREGISTRI:
  599.     ;rosso    
  600.  
  601.     move.l    (a3),d4
  602.     andi.l    #%000011111111,d4
  603.     mulu.w    MULTIPLIER(pc),d4
  604.     asr.w    #8,d4
  605.     andi.l    #%000011111111,d4
  606.     move.l    d4,d5
  607.  
  608.     ;verde
  609.  
  610.     move.l    (a3),d4
  611.     andi.l    #%1111111100000000,d4
  612.     lsr.l    #8,d4
  613.     mulu.w    MULTIPLIER(pc),d4
  614.     asr.w    #8,d4
  615.     andi.l    #%0000000011111111,d4
  616.     lsl.l    #8,d4
  617.     or.l    d4,d5
  618.  
  619.     ;blu
  620.  
  621.     move.l    (a3)+,d4
  622.     andi.l    #%111111110000000000000000,d4
  623.     lsr.l    #8,d4
  624.     lsr.l    #8,d4
  625.     mulu.w    MULTIPLIER(pc),d4
  626.     asr.w    #8,d4
  627.     andi.l    #%0000000011111111,d4
  628.     lsl.l    #8,d4
  629.     lsl.l    #8,d4
  630.     or.l    d4,d5
  631.     move.l    d5,(a0)
  632.  
  633.     move.b    1(a0),(a2)
  634.     andi.b    #%00001111,(a2)
  635.     move.b    2(a0),d2
  636.     lsl.b    #4,d2
  637.     move.b    3(a0),d3
  638.     andi.b    #%00001111,d3
  639.     or.b    d2,d3
  640.     move.b    d3,1(a2)
  641.  
  642.     move.b    1(A0),d0
  643.     andi.b    #%11110000,d0
  644.     lsr.b    #4,d0
  645.     move.b    d0,(a1)
  646.     move.b    2(a0),d2
  647.     andi.b    #%11110000,d2
  648.     move.b    3(a0),d3
  649.     andi.b    #%11110000,d3
  650.     lsr.b    #4,d3
  651.     ori.b    d2,d3
  652.     move.b    d3,1(a1)
  653.     addq.w    #4,a1
  654.     addq.w    #4,a2
  655.     dbra    d6,DALONGAREGISTRI
  656.  
  657.     add.w    #(128+8),a1
  658.     add.w    #(128+8),a2
  659.  
  660.     dbra    d7,CONVERTIPALETTEBANK
  661.     rts
  662.  
  663. PALETTEPIC:
  664.     dc.l    $00000000,$002e182b,$003d213d,$00472b4c,$0050355b,$0058416a
  665.     dc.l    $005f4d79,$00675987,$006e6796,$007474a4,$008188b3,$00919ec2
  666.     dc.l    $00a1b5d1,$00b1cbe0,$00c2e1ef,$00d7f9ff,$002e1109,$003c120c
  667.     dc.l    $004a1512,$00571a1a,$00652329,$00732d3a,$0080394b,$008d455d
  668.     dc.l    $009a5370,$00a86383,$00b67497,$00c384ab,$00d198c0,$00dfaed4
  669.     dc.l    $00ecc3e6,$00fadaf8,$00552b26,$007d4a41,$00a47163,$00cc9b8a
  670.     dc.l    $00f4cbb7,$00432111,$0057381f,$006c5231,$00806f48,$00948c62
  671.     dc.l    $00a8a880,$00babda3,$00cfd1c9,$00291e1e,$0041302d,$0059433b
  672.     dc.l    $00705847,$00877052,$009f8b5b,$00b7aa63,$00cecd69,$00d7e66d
  673.     dc.l    $00daff71,$00252657,$00333669,$0044487b,$00575b8c,$006c739f
  674.     dc.l    $00828ab1,$009ba3c3,$00b7bed5,$00d7dbe9
  675.     cnop    0,8
  676.  
  677. ;************************************************************************
  678. ;*    Stampa un carattere alla volta su schermo largo 320 pixel    *
  679. ;************************************************************************
  680.  
  681. PRINTCARATTERE:
  682.     move.l    PuntaTESTO(PC),A0 ; Indirizzo del testo da stampare in a0
  683.     moveq    #0,D2        ; Pulisci d2
  684.     move.b    (A0)+,D2    ; Prossimo carattere in d2
  685.     cmp.b    #$ff,d2        ; Segnale di fine testo? ($FF)
  686.     beq.s    FineTesto    ; Se si, esci senza stampare
  687.     tst.b    d2        ; Segnale di fine riga? ($00)
  688.     bne.s    NonFineRiga    ; Se no, non andare a capo
  689.  
  690.     add.l    #40*7,PuntaBITPLANE
  691.     addq.l    #1,PuntaTesto
  692.     move.b    (a0)+,d2
  693.  
  694. NonFineRiga:
  695.     sub.b    #$20,D2
  696.     mulu.w    #8,D2
  697.     move.l    D2,A2
  698.     add.l    #FONT,A2
  699.     move.l    PuntaBITPLANE(PC),A3
  700.  
  701.     move.b    (A2)+,(A3)
  702.     move.b    (A2)+,40(A3)
  703.     move.b    (A2)+,40*2(A3)
  704.     move.b    (A2)+,40*3(A3)
  705.     move.b    (A2)+,40*4(A3)
  706.     move.b    (A2)+,40*5(A3)
  707.     move.b    (A2)+,40*6(A3)
  708.     move.b    (A2)+,40*7(A3)
  709.  
  710.     addq.l    #1,PuntaBitplane ; avanziamo di 8 bit (PROSSIMO CARATTERE)
  711.     addq.l    #1,PuntaTesto    ; prossimo carattere da stampare
  712.  
  713. FINETESTO:
  714.     rts
  715.  
  716. PUNTATESTO:
  717.     dc.l    TESTO
  718.  
  719. PUNTABITPLANE:
  720.     dc.l    VUOTO+(40*40)
  721.  
  722. ;    $00 per "fine linea" - $FF per "fine testo"
  723.  
  724. TESTO:
  725.     dc.b    "             INTRO CREDITS:             ",0
  726.     dc.b    "                                        ",0
  727.     dc.b    "                                        ",0
  728.     dc.b    "       1H CODE      MODEM/X-ZONE        ",0
  729.     dc.b    "                                        ",0
  730.     dc.b    "       GRAPHICS     LANCH/X-ZONE        ",0
  731.     dc.b    "                                        ",0
  732.     dc.b    "       MUSIC         FBY/X-ZONE         ",0
  733.     dc.b    "                                        ",0
  734.     dc.b    "                                        ",0
  735.     dc.b    "                                        ",0
  736.     dc.b    "                                        ",0
  737.     dc.b    "                                        ",0
  738.     dc.b    "                                        ",0
  739.     dc.b    "                                        ",0
  740.     dc.b    "      WANNA CONTACT US?  NO PROBLEM     ",0
  741.     dc.b    "                                        ",0
  742.     dc.b    "        PLASTIC DREAM BBS 24H/DAY       ",0
  743.     dc.b    "                                        ",0
  744.     dc.b    "             +39 41/5732014             ",0
  745.     dc.b    "                                        ",0
  746.     dc.b    "                                        ",0
  747.     dc.b    "           RELEASED AT TIG'96           ",0
  748.     dc.b    "                                        ",$FF
  749.     even
  750.  
  751. *******************************************************************************
  752. ;                ROUTINE MUSICALE
  753. *******************************************************************************
  754.  
  755. fade  = 0
  756. jump = 0
  757. system = 1
  758. CIA = 1
  759. exec = 1
  760. opt020 = 1
  761. use = $977f
  762.  
  763.     include    "play.s"    ; La routine vera e propria!
  764.  
  765.     Section    modulozzo,DATA
  766.  
  767. P61_DATA:
  768.     incbin    "P61.defy-mag"    ; Compresso
  769.  
  770.     Section    smp,BSS_C
  771.  
  772. SAMPLES:
  773.     ds.b    61944    ; lunghezza riportata dal p61con
  774.     
  775. *******************************************************************************
  776. ;            COPPERLIST 1,2,3,ETC.
  777. *******************************************************************************
  778.  
  779.     SECTION partedicopper,DATA_C
  780. COPLIST:
  781.     dc.w    $8E,$2c81
  782.     dc.w    $90,$2cc1
  783.     dc.w    $92,$0038
  784.     dc.w    $94,$00d0
  785.     dc.w    $100,%0110001000000000
  786.     dc.w    $102,0
  787.     dc.w    $104,%0000001000000000
  788.     dc.w    $108,0
  789.     dc.w    $10a,0
  790.  
  791.     dc.w    $1fc,0
  792.  
  793. BPLPOINTERS:
  794.     dc.w $e0,0,$e2,0
  795.     dc.w $e4,0,$e6,0
  796.     dc.w $e8,0,$ea,0
  797.     dc.w $ec,0,$ee,0
  798.     dc.w $f0,0,$f2,0
  799.     dc.w $f4,0,$f6,0
  800.  
  801.     DC.W    $106,$c00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE ALTI
  802. LOGOCOLP0:
  803.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  804.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  805.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  806.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  807.  
  808.     DC.W    $106,$e00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE BASSI
  809. LOGOCOLP0B:
  810.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  811.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  812.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  813.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  814.  
  815.     DC.W    $106,$2C00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE ALTI
  816.  
  817.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  818.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  819.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  820.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  821.  
  822.     DC.W    $106,$2E00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE BASSI
  823.  
  824.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  825.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  826.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  827.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  828.  
  829.     DC.W    $106,$4C00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE ALTI
  830.  
  831.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  832.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  833.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  834.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  835.  
  836.     DC.W    $106,$4E00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE BASSI
  837.  
  838.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  839.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  840.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  841.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  842.  
  843.     DC.W    $106,$6C00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE ALTI
  844.  
  845.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  846.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  847.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  848.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  849.  
  850.     DC.W    $106,$6E00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE BASSI
  851.  
  852.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  853.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  854.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  855.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  856.  
  857.     DC.W    $106,$8C00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE ALTI
  858.  
  859.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  860.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  861.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  862.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  863.  
  864.     DC.W    $106,$8E00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE BASSI
  865.  
  866.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  867.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  868.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  869.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  870.  
  871.     DC.W    $106,$AC00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE ALTI
  872.  
  873.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  874.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  875.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  876.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  877.  
  878.     DC.W    $106,$AE00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE BASSI
  879.  
  880.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  881.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  882.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  883.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  884.  
  885.     DC.W    $106,$CC00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE ALTI
  886.  
  887.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  888.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  889.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  890.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  891.  
  892.     DC.W    $106,$CE00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE BASSI
  893.  
  894.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  895.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  896.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  897.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  898.  
  899.     DC.W    $106,$EC00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE ALTI
  900.  
  901.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  902.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  903.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  904.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  905.  
  906.     DC.W    $106,$EE00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE BASSI
  907.  
  908.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  909.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  910.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  911.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  912.  
  913.     dc.w    $ffff,$fffe
  914.  
  915. COPLIST3:
  916.     dc.w    $100,%0000001000010001
  917.     dc.w    $8e,$2c91    ; DiwStrt
  918.     dc.w    $90,$2cb1    ; DiwStop
  919.     dc.w    $108,0        ; Bpl1Mod
  920.     dc.w    $10a,0        ; Bpl2Mod
  921.  
  922. BPLPOINTERS3:
  923.     dc.w    $e0,$0,$e2,$0
  924.     dc.w    $e4,$0,$e6,$0
  925.     dc.w    $e8,$0,$ea,$0
  926.     dc.w    $ec,$0,$ee,$0
  927.     dc.w    $f0,$0,$f2,$0
  928.     dc.w    $f4,$0,$f6,$0
  929.     dc.w    $f8,$0,$fa,$0
  930.     dc.w    $fc,$0,$fe,$0
  931.  
  932.     dc.w    $106,$c00
  933. COLP0:
  934.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  935.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  936.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  937.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  938.     DC.W    $106,$e00
  939. COLP0B:
  940.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  941.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  942.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  943.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  944.     DC.W    $106,$2C00
  945.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  946.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  947.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  948.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  949.     DC.W    $106,$2E00
  950.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  951.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  952.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  953.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  954.     DC.W    $106,$4C00
  955.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  956.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  957.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  958.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  959.     DC.W    $106,$4E00
  960.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  961.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  962.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  963.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  964.     DC.W    $106,$6C00
  965.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  966.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  967.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  968.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  969.     DC.W    $106,$6E00
  970.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  971.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  972.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  973.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  974.     DC.W    $106,$8C00
  975.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  976.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  977.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  978.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  979.     DC.W    $106,$8E00
  980.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  981.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  982.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  983.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  984.     DC.W    $106,$AC00
  985.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  986.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  987.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  988.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  989.     DC.W    $106,$AE00
  990.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  991.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  992.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  993.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  994.     DC.W    $106,$CC00
  995.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  996.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  997.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  998.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  999.     DC.W    $106,$CE00
  1000.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1001.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1002.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1003.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1004.     DC.W    $106,$EC00
  1005.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1006.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1007.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1008.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1009.     DC.W    $106,$EE00
  1010.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1011.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1012.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1013.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1014.  
  1015.     dc.w    $1fc,0        ; Burst mode azzerato
  1016.  
  1017.     ; Dithering...    
  1018.     
  1019.     dc.w    $5007,$fffe,$102,$11
  1020.     dc.w    $5107,$fffe,$102,$00
  1021.     dc.w    $5207,$fffe,$102,$11
  1022.     dc.w    $5307,$fffe,$102,$00
  1023.     dc.w    $5407,$fffe,$102,$11
  1024.     dc.w    $5507,$fffe,$102,$00
  1025.     dc.w    $5607,$fffe,$102,$11
  1026.     dc.w    $5707,$fffe,$102,$00
  1027.     dc.w    $5807,$fffe,$102,$11
  1028.     dc.w    $5907,$fffe,$102,$00
  1029.     dc.w    $5a07,$fffe,$102,$11
  1030.     dc.w    $5b07,$fffe,$102,$00
  1031.     dc.w    $5c07,$fffe,$102,$11
  1032.     dc.w    $5d07,$fffe,$102,$00
  1033.     dc.w    $5e07,$fffe,$102,$11
  1034.     dc.w    $5f07,$fffe,$102,$00
  1035.     dc.w    $6007,$fffe,$102,$11
  1036.     dc.w    $6107,$fffe,$102,$00
  1037.     dc.w    $6207,$fffe,$102,$11
  1038.     dc.w    $6307,$fffe,$102,$00
  1039.     dc.w    $6407,$fffe,$102,$11
  1040.     dc.w    $6507,$fffe,$102,$00
  1041.     dc.w    $6607,$fffe,$102,$11
  1042.     dc.w    $6707,$fffe,$102,$00
  1043.     dc.w    $6807,$fffe,$102,$11
  1044.     dc.w    $6907,$fffe,$102,$00
  1045.     dc.w    $6a07,$fffe,$102,$11
  1046.     dc.w    $6b07,$fffe,$102,$00
  1047.     dc.w    $6c07,$fffe,$102,$11
  1048.     dc.w    $6d07,$fffe,$102,$00
  1049.     dc.w    $6e07,$fffe,$102,$11
  1050.     dc.w    $6f07,$fffe,$102,$00
  1051.     dc.w    $7007,$fffe,$102,$11
  1052.     dc.w    $7107,$fffe,$102,$00
  1053.     dc.w    $7207,$fffe,$102,$11
  1054.     dc.w    $7307,$fffe,$102,$00
  1055.     dc.w    $7407,$fffe,$102,$11
  1056.     dc.w    $7507,$fffe,$102,$00
  1057.     dc.w    $7607,$fffe,$102,$11
  1058.     dc.w    $7707,$fffe,$102,$00
  1059.     dc.w    $7807,$fffe,$102,$11
  1060.     dc.w    $7907,$fffe,$102,$00
  1061.     dc.w    $7a07,$fffe,$102,$11
  1062.     dc.w    $7b07,$fffe,$102,$00
  1063.     dc.w    $7c07,$fffe,$102,$11
  1064.     dc.w    $7d07,$fffe,$102,$00
  1065.     dc.w    $7e07,$fffe,$102,$11
  1066.     dc.w    $7f07,$fffe,$102,$00
  1067.     dc.w    $8007,$fffe,$102,$11
  1068.     dc.w    $8107,$fffe,$102,$00
  1069.     dc.w    $8207,$fffe,$102,$11
  1070.     dc.w    $8307,$fffe,$102,$00
  1071.     dc.w    $8407,$fffe,$102,$11
  1072.     dc.w    $8507,$fffe,$102,$00
  1073.     dc.w    $8607,$fffe,$102,$11
  1074.     dc.w    $8707,$fffe,$102,$00
  1075.     dc.w    $8807,$fffe,$102,$11
  1076.     dc.w    $8907,$fffe,$102,$00
  1077.     dc.w    $8a07,$fffe,$102,$11
  1078.     dc.w    $8b07,$fffe,$102,$00
  1079.     dc.w    $8c07,$fffe,$102,$11
  1080.     dc.w    $8d07,$fffe,$102,$00
  1081.     dc.w    $8e07,$fffe,$102,$11
  1082.     dc.w    $8f07,$fffe,$102,$00
  1083.     dc.w    $9007,$fffe,$102,$11
  1084.     dc.w    $9107,$fffe,$102,$00
  1085.     dc.w    $9207,$fffe,$102,$11
  1086.     dc.w    $9307,$fffe,$102,$00
  1087.     dc.w    $9407,$fffe,$102,$11
  1088.     dc.w    $9507,$fffe,$102,$00
  1089.     dc.w    $9607,$fffe,$102,$11
  1090.     dc.w    $9707,$fffe,$102,$00
  1091.     dc.w    $9807,$fffe,$102,$11
  1092.     dc.w    $9907,$fffe,$102,$00
  1093.     dc.w    $9a07,$fffe,$102,$11
  1094.     dc.w    $9b07,$fffe,$102,$00
  1095.     dc.w    $9c07,$fffe,$102,$11
  1096.     dc.w    $9d07,$fffe,$102,$00
  1097.     dc.w    $9e07,$fffe,$102,$11
  1098.     dc.w    $9f07,$fffe,$102,$00
  1099.     dc.w    $a007,$fffe,$102,$11
  1100.     dc.w    $a107,$fffe,$102,$00
  1101.     dc.w    $a207,$fffe,$102,$11
  1102.     dc.w    $a307,$fffe,$102,$00
  1103.     dc.w    $a407,$fffe,$102,$11
  1104.     dc.w    $a507,$fffe,$102,$00
  1105.     dc.w    $a607,$fffe,$102,$11
  1106.     dc.w    $a707,$fffe,$102,$00
  1107.     dc.w    $a807,$fffe,$102,$11
  1108.     dc.w    $a907,$fffe,$102,$00
  1109.     dc.w    $aa07,$fffe,$102,$11
  1110.     dc.w    $ab07,$fffe,$102,$00
  1111.     dc.w    $ac07,$fffe,$102,$11
  1112.     dc.w    $ad07,$fffe,$102,$00
  1113.     dc.w    $ae07,$fffe,$102,$11
  1114.     dc.w    $af07,$fffe,$102,$00
  1115.     dc.w    $108,40
  1116.     dc.w    $10a,40
  1117.     dc.w    $b007,$fffe,$102,$11
  1118.     dc.w    $108,-40*2
  1119.     dc.w    $10a,-40*2
  1120.     dc.w    $b107,$fffe,$102,$00
  1121.     dc.w    $b207,$fffe,$102,$11
  1122.     dc.w    $b307,$fffe,$102,$00
  1123.     dc.w    $b407,$fffe,$102,$11
  1124.     dc.w    $b507,$fffe,$102,$00
  1125.     dc.w    $b607,$fffe,$102,$11
  1126.     dc.w    $b707,$fffe,$102,$00
  1127.     dc.w    $b807,$fffe,$102,$11
  1128.     dc.w    $b907,$fffe,$102,$00
  1129.     dc.w    $ba07,$fffe,$102,$11
  1130.     dc.w    $bb07,$fffe,$102,$00
  1131.     dc.w    $bc07,$fffe,$102,$11
  1132.     dc.w    $bd07,$fffe,$102,$00
  1133.     dc.w    $be07,$fffe,$102,$11
  1134.     dc.w    $bf07,$fffe,$102,$00
  1135.     dc.w    $c007,$fffe,$102,$11
  1136.     dc.w    $c107,$fffe,$102,$00
  1137.     dc.w    $c207,$fffe,$102,$11
  1138.     dc.w    $c307,$fffe,$102,$00
  1139.     dc.w    $c407,$fffe,$102,$11
  1140.     dc.w    $c507,$fffe,$102,$00
  1141.     dc.w    $c607,$fffe,$102,$11
  1142.     dc.w    $c707,$fffe,$102,$00
  1143.     dc.w    $c807,$fffe,$102,$11
  1144.     dc.w    $c907,$fffe,$102,$00
  1145.     dc.w    $ca07,$fffe,$102,$11
  1146.     dc.w    $cb07,$fffe,$102,$00
  1147.     dc.w    $cc07,$fffe,$102,$11
  1148.     dc.w    $cd07,$fffe,$102,$00
  1149.     dc.w    $ce07,$fffe,$102,$11
  1150.     dc.w    $cf07,$fffe,$102,$00
  1151.     dc.w    $d007,$fffe,$102,$11
  1152.     dc.w    $d107,$fffe,$102,$00
  1153.     dc.w    $d207,$fffe,$102,$11
  1154.     dc.w    $d307,$fffe,$102,$00
  1155.     dc.w    $d407,$fffe,$102,$11
  1156.     dc.w    $d507,$fffe,$102,$00
  1157.     dc.w    $d607,$fffe,$102,$11
  1158.     dc.w    $d707,$fffe,$102,$00
  1159.     dc.w    $d807,$fffe,$102,$11
  1160.     dc.w    $d907,$fffe,$102,$00
  1161.     dc.w    $da07,$fffe,$102,$11
  1162.     dc.w    $db07,$fffe,$102,$00
  1163.     dc.w    $dc07,$fffe,$102,$11
  1164.     dc.w    $dd07,$fffe,$102,$00
  1165.     dc.w    $de07,$fffe,$102,$11
  1166.     dc.w    $df07,$fffe,$102,$00
  1167.     dc.w    $e007,$fffe,$102,$11
  1168.     dc.w    $e107,$fffe,$102,$00
  1169.     dc.w    $e207,$fffe,$102,$11
  1170.     dc.w    $e307,$fffe,$102,$00
  1171.     dc.w    $e407,$fffe,$102,$11
  1172.     dc.w    $e507,$fffe,$102,$00
  1173.     dc.w    $e607,$fffe,$102,$11
  1174.     dc.w    $e707,$fffe,$102,$00
  1175.     dc.w    $e807,$fffe,$102,$11
  1176.     dc.w    $e907,$fffe,$102,$00
  1177.     dc.w    $ea07,$fffe,$102,$11
  1178.     dc.w    $eb07,$fffe,$102,$00
  1179.     dc.w    $ec07,$fffe,$102,$11
  1180.     dc.w    $ed07,$fffe,$102,$00
  1181.     dc.w    $ee07,$fffe,$102,$11
  1182.     dc.w    $ef07,$fffe,$102,$00
  1183.     dc.w    $f007,$fffe,$102,$11
  1184.     dc.w    $f107,$fffe,$102,$00
  1185.     dc.w    $f207,$fffe,$102,$11
  1186.     dc.w    $f307,$fffe,$102,$00
  1187.     dc.w    $f407,$fffe,$102,$11
  1188.     dc.w    $f507,$fffe,$102,$00
  1189.     dc.w    $f607,$fffe,$102,$11
  1190.     dc.w    $f707,$fffe,$102,$00
  1191.     dc.w    $f807,$fffe,$102,$11
  1192.     dc.w    $f907,$fffe,$102,$00
  1193.     dc.w    $fa07,$fffe,$102,$11
  1194.     dc.w    $fb07,$fffe,$102,$00
  1195.     dc.w    $fc07,$fffe,$102,$11
  1196.     dc.w    $fd07,$fffe,$102,$00
  1197.     dc.w    $fe07,$fffe,$102,$11
  1198.     dc.w    $ff07,$fffe,$102,$00
  1199.     dc.w    $0007,$fffe,$102,$11
  1200.     dc.w    $0107,$fffe,$102,$00
  1201.     dc.w    $0207,$fffe,$102,$11
  1202.     dc.w    $0307,$fffe,$102,$00
  1203.     dc.w    $0407,$fffe,$102,$11
  1204.     dc.w    $0507,$fffe,$102,$00
  1205.     dc.w    $0607,$fffe,$102,$11
  1206.     dc.w    $0707,$fffe,$102,$00
  1207.     dc.w    $0807,$fffe,$102,$11
  1208.     dc.w    $0907,$fffe,$102,$00
  1209.     dc.w    $0a07,$fffe,$102,$11
  1210.     dc.w    $0b07,$fffe,$102,$00
  1211.     dc.w    $0c07,$fffe,$102,$11
  1212.     dc.w    $0d07,$fffe,$102,$00
  1213.     dc.w    $0e07,$fffe,$102,$11
  1214.     dc.w    $0f07,$fffe,$102,$00
  1215.     dc.w    $1007,$fffe,$102,$11
  1216.     dc.w    $1107,$fffe,$102,$00
  1217.     dc.w    $1207,$fffe,$102,$11
  1218.     dc.w    $1307,$fffe,$102,$00
  1219.     dc.w    $1407,$fffe,$102,$11
  1220.     dc.w    $1507,$fffe,$102,$00
  1221.     dc.w    $1607,$fffe,$102,$11
  1222.     dc.w    $1707,$fffe,$102,$00
  1223.     dc.w    $1807,$fffe,$102,$11
  1224.     dc.w    $1907,$fffe,$102,$00
  1225.     dc.w    $1a07,$fffe,$102,$11
  1226.     dc.w    $1b07,$fffe,$102,$00
  1227.     dc.w    $1c07,$fffe,$102,$11
  1228.     dc.w    $1d07,$fffe,$102,$00
  1229.     dc.w    $1e07,$fffe,$102,$11
  1230.     dc.w    $1f07,$fffe,$102,$00
  1231.     dc.w    $2007,$fffe,$102,$11
  1232.     dc.w    $2107,$fffe,$102,$00
  1233.     dc.w    $2207,$fffe,$102,$11
  1234.     dc.w    $2307,$fffe,$102,$00
  1235.     dc.w    $2407,$fffe,$102,$11
  1236.     dc.w    $2507,$fffe,$102,$00
  1237.     dc.w    $2607,$fffe,$102,$11
  1238.     dc.w    $2707,$fffe,$102,$00
  1239.     dc.w    $2807,$fffe,$102,$11
  1240.     dc.w    $2907,$fffe,$102,$00
  1241.     dc.w    $2a07,$fffe,$102,$11
  1242.     dc.w    $2b07,$fffe,$102,$00
  1243.     dc.w    $2c07,$fffe,$102,$11
  1244.     dc.w    $2d07,$fffe,$102,$00
  1245.     dc.w    $2e07,$fffe,$102,$11
  1246.     dc.w    $2f07,$fffe,$102,$00
  1247.     
  1248.     dc.w    $ffff,$fffe
  1249.  
  1250. COPVUOTO:
  1251.  
  1252. BPLVUOTO:
  1253.     dc.w $e0,$0,$e2,$0
  1254.  
  1255.     dc.w    $100,%0001001000000000
  1256.     dc.w    $8e,$2c81    ; DiwStrt
  1257.     dc.w    $90,$2cc1    ; DiwStop
  1258.     dc.w    $102,0
  1259.     dc.w    $104,0
  1260.     dc.w    $108,0        ; Bpl1Mod
  1261.     dc.w    $10a,0        ; Bpl2Mod
  1262.  
  1263.     DC.W    $106,$c00
  1264.     dc.w    $180,$fff,$182,$fff
  1265.     DC.W    $106,$e00
  1266.     dc.w    $180,$fff,$182,$fff
  1267.  
  1268.     dc.w    $ffff,$fffe
  1269.  
  1270. COPCREDITS:
  1271.  
  1272. BPLCREDITS:
  1273.     dc.w $e0,$0,$e2,$0
  1274.  
  1275.     dc.w    $100,%0001001000000000
  1276.     dc.w    $8e,$2c81    ; DiwStrt
  1277.     dc.w    $90,$2cc1    ; DiwStop
  1278.     dc.w    $102,0
  1279.     dc.w    $104,0
  1280.     dc.w    $108,0        ; Bpl1Mod
  1281.     dc.w    $10a,0        ; Bpl2Mod
  1282.  
  1283.     DC.W    $106,$c00
  1284.     dc.w    $180,$0,$182,$fff
  1285.     DC.W    $106,$e00
  1286.     dc.w    $180,$0,$182,$fff
  1287.  
  1288.     dc.w    $ffff,$fffe
  1289.  
  1290. COPLIST5:
  1291.     dc.w    $100,%0000001000010001
  1292.     dc.w    $8e,$2c91    ; DiwStrt
  1293.     dc.w    $90,$2cb1    ; DiwStop
  1294.     dc.w    $108,0        ; Bpl1Mod
  1295.     dc.w    $10a,0        ; Bpl2Mod
  1296.  
  1297. BPLPOINTERS5:
  1298.     dc.w    $e0,$0,$e2,$0
  1299.     dc.w    $e4,$0,$e6,$0
  1300.     dc.w    $e8,$0,$ea,$0
  1301.     dc.w    $ec,$0,$ee,$0
  1302.     dc.w    $f0,$0,$f2,$0
  1303.     dc.w    $f4,$0,$f6,$0
  1304.     dc.w    $f8,$0,$fa,$0
  1305.     dc.w    $fc,$0,$fe,$0
  1306.  
  1307.     DC.W    $106,$c00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE ALTI
  1308. TUNNELCOLP0:
  1309.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1310.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1311.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1312.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1313.  
  1314.     DC.W    $106,$e00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE BASSI
  1315. TUNNELCOLP0B:
  1316.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1317.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1318.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1319.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1320.  
  1321.     DC.W    $106,$2C00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE ALTI
  1322.  
  1323.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1324.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1325.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1326.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1327.  
  1328.     DC.W    $106,$2E00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE BASSI
  1329.  
  1330.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1331.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1332.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1333.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1334.  
  1335.     DC.W    $106,$4C00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE ALTI
  1336.  
  1337.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1338.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1339.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1340.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1341.  
  1342.     DC.W    $106,$4E00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE BASSI
  1343.  
  1344.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1345.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1346.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1347.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1348.  
  1349.     DC.W    $106,$6C00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE ALTI
  1350.  
  1351.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1352.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1353.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1354.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1355.  
  1356.     DC.W    $106,$6E00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE BASSI
  1357.  
  1358.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1359.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1360.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1361.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1362.  
  1363.     DC.W    $106,$8C00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE ALTI
  1364.  
  1365.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1366.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1367.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1368.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1369.  
  1370.     DC.W    $106,$8E00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE BASSI
  1371.  
  1372.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1373.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1374.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1375.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1376.  
  1377.     DC.W    $106,$AC00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE ALTI
  1378.  
  1379.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1380.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1381.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1382.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1383.  
  1384.     DC.W    $106,$AE00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE BASSI
  1385.  
  1386.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1387.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1388.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1389.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1390.  
  1391.     DC.W    $106,$CC00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE ALTI
  1392.  
  1393.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1394.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1395.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1396.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1397.  
  1398.     DC.W    $106,$CE00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE BASSI
  1399.  
  1400.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1401.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1402.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1403.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1404.  
  1405.     DC.W    $106,$EC00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE ALTI
  1406.  
  1407.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1408.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1409.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1410.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1411.  
  1412.     DC.W    $106,$EE00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE BASSI
  1413.  
  1414.     DC.W    $180,0,$182,0,$184,0,$186,0,$188,0,$18A,0,$18C,0,$18E,0
  1415.     DC.W    $190,0,$192,0,$194,0,$196,0,$198,0,$19A,0,$19C,0,$19E,0
  1416.     DC.W    $1A0,0,$1A2,0,$1A4,0,$1A6,0,$1A8,0,$1AA,0,$1AC,0,$1AE,0
  1417.     DC.W    $1B0,0,$1B2,0,$1B4,0,$1B6,0,$1B8,0,$1BA,0,$1BC,0,$1BE,0
  1418.  
  1419.     dc.w    $1fc,0        ; Burst mode azzerato
  1420.     dc.w    $102
  1421. CON1EFFETTO:
  1422.     dc.w    0
  1423.     dc.w    $3007,$fffe,$102,$11
  1424.     dc.w    $3207,$fffe,$102,$11
  1425.     dc.w    $3407,$fffe,$102,$11
  1426.     dc.w    $3607,$fffe,$102,$11
  1427.     dc.w    $3807,$fffe,$102,$22
  1428.     dc.w    $3a07,$fffe,$102,$22
  1429.     dc.w    $3c07,$fffe,$102,$22
  1430.     dc.w    $3e07,$fffe,$102,$22
  1431.     dc.w    $4007,$fffe,$102,$33
  1432.     dc.w    $4207,$fffe,$102,$33
  1433.     dc.w    $4407,$fffe,$102,$33
  1434.     dc.w    $4607,$fffe,$102,$33
  1435.     dc.w    $4807,$fffe,$102,$44
  1436.     dc.w    $4a07,$fffe,$102,$44
  1437.     dc.w    $4c07,$fffe,$102,$44
  1438.     dc.w    $4e07,$fffe,$102,$44
  1439.     dc.w    $5007,$fffe,$102,$55
  1440.     dc.w    $5207,$fffe,$102,$55
  1441.     dc.w    $5407,$fffe,$102,$55
  1442.     dc.w    $5607,$fffe,$102,$55
  1443.     dc.w    $5807,$fffe,$102,$66
  1444.     dc.w    $5a07,$fffe,$102,$66
  1445.     dc.w    $5c07,$fffe,$102,$66
  1446.     dc.w    $5e07,$fffe,$102,$66
  1447.     dc.w    $6007,$fffe,$102,$77
  1448.     dc.w    $6207,$fffe,$102,$77
  1449.     dc.w    $6407,$fffe,$102,$77
  1450.     dc.w    $6607,$fffe,$102,$77
  1451.     dc.w    $6807,$fffe,$102,$88
  1452.     dc.w    $6a07,$fffe,$102,$88
  1453.     dc.w    $6c07,$fffe,$102,$88
  1454.     dc.w    $6e07,$fffe,$102,$88
  1455.     dc.w    $7007,$fffe,$102,$99
  1456.     dc.w    $7207,$fffe,$102,$99
  1457.     dc.w    $7407,$fffe,$102,$99
  1458.     dc.w    $7607,$fffe,$102,$99
  1459.     dc.w    $7807,$fffe,$102,$aa
  1460.     dc.w    $7a07,$fffe,$102,$aa
  1461.     dc.w    $7c07,$fffe,$102,$aa
  1462.     dc.w    $7e07,$fffe,$102,$aa
  1463.     dc.w    $8007,$fffe,$102,$bb
  1464.     dc.w    $8207,$fffe,$102,$bb
  1465.     dc.w    $8407,$fffe,$102,$bb
  1466.     dc.w    $8607,$fffe,$102,$bb
  1467.     dc.w    $8807,$fffe,$102,$cc
  1468.     dc.w    $8a07,$fffe,$102,$cc
  1469.     dc.w    $8c07,$fffe,$102,$cc
  1470.     dc.w    $8e07,$fffe,$102,$cc
  1471.     dc.w    $9007,$fffe,$102,$dd
  1472.     dc.w    $9207,$fffe,$102,$dd
  1473.     dc.w    $9407,$fffe,$102,$dd
  1474.     dc.w    $9607,$fffe,$102,$dd
  1475.     dc.w    $9807,$fffe,$102,$ee
  1476.     dc.w    $9a07,$fffe,$102,$ee
  1477.     dc.w    $9c07,$fffe,$102,$ee
  1478.     dc.w    $9e07,$fffe,$102,$ee
  1479.     dc.w    $a007,$fffe,$102,$ff
  1480.     dc.w    $a207,$fffe,$102,$ff
  1481.     dc.w    $a407,$fffe,$102,$ff
  1482.     dc.w    $a607,$fffe,$102,$ff
  1483.     dc.w    $a807,$fffe,$102,$ff
  1484.     dc.w    $aa07,$fffe,$102,$ff
  1485.     dc.w    $ac07,$fffe,$102,$ff
  1486.     dc.w    $ae07,$fffe,$102,$ff
  1487.     dc.w    $b007,$fffe,$102,$ff
  1488.     dc.w    $b207,$fffe,$102,$ff
  1489.     dc.w    $b407,$fffe,$102,$ff
  1490.     dc.w    $b607,$fffe,$102,$ff
  1491.     dc.w    $b807,$fffe,$102,$ff
  1492.     dc.w    $ba07,$fffe,$102,$ee
  1493.     dc.w    $bc07,$fffe,$102,$ee
  1494.     dc.w    $be07,$fffe,$102,$ee
  1495.     dc.w    $c007,$fffe,$102,$ee
  1496.     dc.w    $c207,$fffe,$102,$dd
  1497.     dc.w    $c407,$fffe,$102,$dd
  1498.     dc.w    $c607,$fffe,$102,$dd
  1499.     dc.w    $c807,$fffe,$102,$dd
  1500.     dc.w    $ca07,$fffe,$102,$cc
  1501.     dc.w    $cc07,$fffe,$102,$cc
  1502.     dc.w    $ce07,$fffe,$102,$cc
  1503.     dc.w    $d007,$fffe,$102,$cc
  1504.     dc.w    $d207,$fffe,$102,$bb
  1505.     dc.w    $d407,$fffe,$102,$bb
  1506.     dc.w    $d607,$fffe,$102,$bb
  1507.     dc.w    $d807,$fffe,$102,$bb
  1508.     dc.w    $da07,$fffe,$102,$aa
  1509.     dc.w    $dc07,$fffe,$102,$aa
  1510.     dc.w    $de07,$fffe,$102,$aa
  1511.     dc.w    $e007,$fffe,$102,$aa
  1512.     dc.w    $e207,$fffe,$102,$99
  1513.     dc.w    $e407,$fffe,$102,$99
  1514.     dc.w    $e607,$fffe,$102,$99
  1515.     dc.w    $e807,$fffe,$102,$99
  1516.     dc.w    $ea07,$fffe,$102,$88
  1517.     dc.w    $ec07,$fffe,$102,$88
  1518.     dc.w    $ee07,$fffe,$102,$88
  1519.     dc.w    $f007,$fffe,$102,$88
  1520.     dc.w    $f207,$fffe,$102,$77
  1521.     dc.w    $f407,$fffe,$102,$77
  1522.     dc.w    $f607,$fffe,$102,$77
  1523.     dc.w    $f807,$fffe,$102,$77
  1524.     dc.w    $fc07,$fffe,$102,$66
  1525.     dc.w    $fe07,$fffe,$102,$66
  1526.     dc.w    $ff07,$fffe,$102,$66
  1527.     dc.w    $0207,$fffe,$102,$66
  1528.     dc.w    $0407,$fffe,$102,$55
  1529.     dc.w    $0607,$fffe,$102,$55
  1530.     dc.w    $0807,$fffe,$102,$55
  1531.     dc.w    $0c07,$fffe,$102,$55
  1532.     dc.w    $0e07,$fffe,$102,$44
  1533.     dc.w    $1207,$fffe,$102,$44
  1534.     dc.w    $1407,$fffe,$102,$44
  1535.     dc.w    $1607,$fffe,$102,$44
  1536.     dc.w    $1807,$fffe,$102,$33
  1537.     dc.w    $1a07,$fffe,$102,$33
  1538.     dc.w    $1c07,$fffe,$102,$33
  1539.     dc.w    $1e07,$fffe,$102,$33
  1540.     dc.w    $2207,$fffe,$102,$22
  1541.     dc.w    $2407,$fffe,$102,$22
  1542.     dc.w    $2607,$fffe,$102,$22
  1543.     dc.w    $2807,$fffe,$102,$22
  1544.     dc.w    $2a07,$fffe,$102,$11
  1545.     dc.w    $2c07,$fffe,$102,$11
  1546.     dc.w    $2e07,$fffe,$102,$11
  1547.     dc.w    $3207,$fffe,$102,$11
  1548.     dc.w    $3407,$fffe,$102,$11
  1549.     dc.w    $3607,$fffe,$102,$11
  1550.     dc.w    $e407,$fffe,$102
  1551.  
  1552. ULTIMOVALORE:
  1553.     dc.w    0
  1554.  
  1555.     dc.w    $ffff,$fffe
  1556.  
  1557. CHUNKYOFFSET:
  1558.     dc.w    2656
  1559.  
  1560. PALETTETUNNEL:
  1561.         dc.l    $00000000,$00A0A0A0,$0000AA00,$0000AAAA
  1562.         dc.l    $00AA0000,$00AA00AA,$00AA5500,$00AAAAAA
  1563.         dc.l    $00555555,$005555FF,$0055FF55,$0055FFFF
  1564.         dc.l    $00FF5555,$00FF55FF,$00FFFF55,$00FFFFFF
  1565.         dc.l    $00EFEFEF,$00DFDFDF,$00D3D3D3,$00C3C3C3
  1566.         dc.l    $00B7B7B7,$00ABABAB,$009B9B9B,$008F8F8F
  1567.         dc.l    $007F7F7F,$00737373,$00676767,$00575757
  1568.         dc.l    $004B4B4B,$003B3B3B,$002F2F2F,$00232323
  1569.         dc.l    $00FF0000,$00EF0000,$00E30000,$00D70000
  1570.         dc.l    $00CB0000,$00BF0000,$00B30000,$00A70000
  1571.         dc.l    $009B0000,$008B0000,$007F0000,$00730000
  1572.         dc.l    $00670000,$005B0000,$004F0000,$00400000
  1573.         dc.l    $00FFDADA,$00FFBABA,$00FF9F9F,$00FF7F7F
  1574.         dc.l    $00FF5F5F,$00FF4040,$00FF2020,$00FF0000
  1575.         dc.l    $00FCA85C,$00FC9840,$00FC8820,$00FC7800
  1576.         dc.l    $00E46C00,$00CC6000,$00B45400,$009C4C00
  1577.         dc.l    $00FCFCD8,$00FCFCB8,$00FCFC9C,$00FCFC7C
  1578.         dc.l    $00FCF85C,$00FCF440,$00FCF420,$00FCF400
  1579.         dc.l    $00E4D800,$00CCC400,$00B4AC00,$009C9C00
  1580.         dc.l    $00848400,$00706C00,$00585400,$00404000
  1581.         dc.l    $00D0FC5C,$00C4FC40,$00B4FC20,$00A0FC00
  1582.         dc.l    $0090E400,$0080CC00,$0074B400,$00609C00
  1583.         dc.l    $00D8FCD8,$00BCFCB8,$009CFC9C,$0080FC7C
  1584.         dc.l    $0060FC5C,$0040FC40,$0020FC20,$0000FC00
  1585.         dc.l    $0000FF00,$0000EF00,$0000E300,$0000D700
  1586.         dc.l    $0007CB00,$0007BF00,$0007B300,$0007A700
  1587.         dc.l    $00079B00,$00078B00,$00077F00,$00077300
  1588.         dc.l    $00076700,$00075B00,$00074F00,$00044000
  1589.         dc.l    $00DAFFFF,$00B8FCFC,$009CFCFC,$007CFCF8
  1590.         dc.l    $005CFCFC,$0040FCFC,$0020FCFC,$0000FCFC
  1591.         dc.l    $0000E4E4,$0000CCCC,$0000B4B4,$00009C9C
  1592.         dc.l    $00008484,$00007070,$00005858,$00004040
  1593.         dc.l    $005CBCFC,$0040B0FC,$0020A8FC,$00009CFC
  1594.         dc.l    $00008CE4,$00007CCC,$00006CB4,$00005C9C
  1595.         dc.l    $00DADAFF,$00BABFFF,$009F9FFF,$007F80FF
  1596.         dc.l    $005F60FF,$004040FF,$002025FF,$000005FF
  1597.         dc.l    $000000FF,$000000EF,$000000E3,$000000D7
  1598.         dc.l    $000000CB,$000000BF,$000000B3,$000000A7
  1599.         dc.l    $0000009B,$0000008B,$0000007F,$00000073
  1600.         dc.l    $00000067,$0000005B,$0000004F,$00000040
  1601.         dc.l    $00F0DAFF,$00E5BAFF,$00DA9FFF,$00D07FFF
  1602.         dc.l    $00CA5FFF,$00BF40FF,$00B520FF,$00AA00FF
  1603.         dc.l    $009A00E5,$008000CF,$007500B5,$0060009F
  1604.         dc.l    $00500085,$00450070,$0035005A,$002A0040
  1605.         dc.l    $00FFDAFF,$00FFBAFF,$00FF9FFF,$00FF7FFF
  1606.         dc.l    $00FF5FFF,$00FF40FF,$00FF20FF,$00FF00FF
  1607.         dc.l    $00E000E5,$00CA00CF,$00B500B5,$009F009F
  1608.         dc.l    $00850085,$006F0070,$005A005A,$00400040
  1609.         dc.l    $00FFE9DE,$00F7DDD0,$00F0D1C3,$00E9C7B7
  1610.         dc.l    $00E1BAAA,$00DAB09E,$00D3A494,$00CC9B89
  1611.         dc.l    $00C59080,$00BE8676,$00B67C6B,$00AF7363
  1612.         dc.l    $00A86B5A,$00A16152,$009A594A,$00935043
  1613.         dc.l    $008B483B,$00843F34,$007E392E,$00773128
  1614.         dc.l    $00702C23,$0069261D,$00611F18,$005A1B14
  1615.         dc.l    $00531510,$004C110D,$00450C09,$003E0907
  1616.         dc.l    $00360504,$002F0302,$00280101,$00210000
  1617.         dc.l    $00FF5858,$00FFBE80,$00FFFE82,$0082FF84
  1618.         dc.l    $0080FFFF,$008080FF,$00BF80FF,$00FE80FF
  1619.         dc.l    $00C72B2B,$00C74F2B,$00C7772B,$00C79F2B
  1620.         dc.l    $00C7C72B,$009FC72B,$0077C72B,$004FC72B
  1621.         dc.l    $002BC733,$002BC75F,$002BC78B,$002BC7B7
  1622.         dc.l    $002BABC7,$002B7FC7,$002B53C7,$002F2BC7
  1623.         dc.l    $005B2BC7,$00872BC7,$00B32BC7,$00C72BAF
  1624.         dc.l    $00C72B83,$00C72B57,$00C72B2B,$00FFFFFF
  1625.  
  1626. CHUNKYPALETTE:
  1627.     dc.l    $00235182,$0094a2a2,$002020f0,$003030f0,$004040f0,$005050f0
  1628.     dc.l    $006060f0,$007070f0,$008080f0,$009090f0,$00a0a0f0,$00b0b0f0
  1629.     dc.l    $00c0c0f0,$00d0d0f0,$00e0e0f0,$00f0f0f0
  1630.  
  1631.  
  1632.     cnop    0,8
  1633. TITOLO:
  1634.     incbin    "jokonda.raw"
  1635.  
  1636.     ds.b    4000
  1637. SFERA:
  1638.     incbin    "sfera.RAW"
  1639.  
  1640. TUNNEL:
  1641.     incbin    "prospettiva.raw"
  1642.  
  1643. FONT:
  1644. ; ' '
  1645.     dc.b    %00000000
  1646.     dc.b    %00000000
  1647.     dc.b    %00000000
  1648.     dc.b    %00000000
  1649.     dc.b    %00000000
  1650.     dc.b    %00000000
  1651.     dc.b    %00000000
  1652.     dc.b    %00000000
  1653. ; '!'
  1654.     dc.b    %00011000
  1655.     dc.b    %00011000
  1656.     dc.b    %00011000
  1657.     dc.b    %00011000
  1658.     dc.b    %00011000
  1659.     dc.b    %00000000
  1660.     dc.b    %00011000
  1661.     dc.b    %00000000
  1662. ; '"'
  1663.     dc.b    %00011011
  1664.     dc.b    %00011011
  1665.     dc.b    %00011011
  1666.     dc.b    %00000000
  1667.     dc.b    %00000000
  1668.     dc.b    %00000000
  1669.     dc.b    %00000000
  1670.     dc.b    %00000000
  1671. ; '#'
  1672.     dc.b    %00010100
  1673.     dc.b    %00010100
  1674.     dc.b    %00010100
  1675.     dc.b    %01111111
  1676.     dc.b    %00010100
  1677.     dc.b    %00010100
  1678.     dc.b    %00010100
  1679.     dc.b    %00000000
  1680. ; '$'
  1681.     dc.b    %00001000
  1682.     dc.b    %00011110
  1683.     dc.b    %00100000
  1684.     dc.b    %00011100
  1685.     dc.b    %00000010
  1686.     dc.b    %00111100
  1687.     dc.b    %00001000
  1688.     dc.b    %00000000
  1689. ; '%'
  1690.     dc.b    %00000001
  1691.     dc.b    %00110011
  1692.     dc.b    %00110110
  1693.     dc.b    %00001100
  1694.     dc.b    %00011000
  1695.     dc.b    %00110110
  1696.     dc.b    %01100110
  1697.     dc.b    %00000000
  1698. ; '&'
  1699.     dc.b    %00011000
  1700.     dc.b    %00100100
  1701.     dc.b    %00011000
  1702.     dc.b    %00011001
  1703.     dc.b    %00100110
  1704.     dc.b    %00111110
  1705.     dc.b    %00011001
  1706.     dc.b    %00000000
  1707. ; "'"
  1708.     dc.b    %00001100
  1709.     dc.b    %00001100
  1710.     dc.b    %00001100
  1711.     dc.b    %00000000
  1712.     dc.b    %00000000
  1713.     dc.b    %00000000
  1714.     dc.b    %00000000
  1715.     dc.b    %00000000
  1716. ; "("
  1717.     dc.b    %00001100
  1718.     dc.b    %00011000
  1719.     dc.b    %00110000
  1720.     dc.b    %00110000
  1721.     dc.b    %00110000
  1722.     dc.b    %00011000
  1723.     dc.b    %00001100
  1724.     dc.b    %00000000
  1725. ; ")"
  1726.     dc.b    %00110000
  1727.     dc.b    %00011000
  1728.     dc.b    %00001100
  1729.     dc.b    %00001100
  1730.     dc.b    %00001100
  1731.     dc.b    %00011000
  1732.     dc.b    %00110000
  1733.     dc.b    %00000000
  1734. ; "*"
  1735.     dc.b    %01100011
  1736.     dc.b    %00110110
  1737.     dc.b    %00011100
  1738.     dc.b    %01111111
  1739.     dc.b    %00011100
  1740.     dc.b    %00110110
  1741.     dc.b    %01100011
  1742.     dc.b    %00000000
  1743. ; '+'
  1744.     dc.b    %00000000
  1745.     dc.b    %00011000
  1746.     dc.b    %00011000
  1747.     dc.b    %01111110
  1748.     dc.b    %00011000
  1749.     dc.b    %00011000
  1750.     dc.b    %00000000
  1751.     dc.b    %00000000
  1752. ; ","
  1753.     dc.b    %00000000
  1754.     dc.b    %00000000
  1755.     dc.b    %00000000
  1756.     dc.b    %00000000
  1757.     dc.b    %00011000
  1758.     dc.b    %00011000
  1759.     dc.b    %00110000
  1760.     dc.b    %00000000
  1761. ; "-"
  1762.     dc.b    %00000000
  1763.     dc.b    %00000000
  1764.     dc.b    %00000000
  1765.     dc.b    %01111110
  1766.     dc.b    %00000000
  1767.     dc.b    %00000000
  1768.     dc.b    %00000000
  1769.     dc.b    %00000000
  1770. ; "."
  1771.     dc.b    %00000000
  1772.     dc.b    %00000000
  1773.     dc.b    %00000000
  1774.     dc.b    %00000000
  1775.     dc.b    %00000000
  1776.     dc.b    %00011000
  1777.     dc.b    %00011000
  1778.     dc.b    %00000000
  1779. ; "/"
  1780.     dc.b    %00000001
  1781.     dc.b    %00000011
  1782.     dc.b    %00000110
  1783.     dc.b    %00001100
  1784.     dc.b    %00011000
  1785.     dc.b    %00110000
  1786.     dc.b    %01100000
  1787.     dc.b    %00000000
  1788. ; '0'
  1789.     dc.b    %00111110
  1790.     dc.b    %01100011
  1791.     dc.b    %01100011
  1792.     dc.b    %01100011
  1793.     dc.b    %01100011
  1794.     dc.b    %01100011
  1795.     dc.b    %00111110
  1796.     dc.b    %00000000
  1797. ; '1'
  1798.     dc.b    %00011000
  1799.     dc.b    %00111000
  1800.     dc.b    %00011000
  1801.     dc.b    %00011000
  1802.     dc.b    %00011000
  1803.     dc.b    %00011000
  1804.     dc.b    %00011000
  1805.     dc.b    %00000000
  1806. ; '2'
  1807.     dc.b    %00111110
  1808.     dc.b    %01100110
  1809.     dc.b    %00001100
  1810.     dc.b    %00011000
  1811.     dc.b    %00110000
  1812.     dc.b    %01100000
  1813.     dc.b    %01111110
  1814.     dc.b    %00000000
  1815. ; '3'
  1816.     dc.b    %01111110
  1817.     dc.b    %00000011
  1818.     dc.b    %00000011
  1819.     dc.b    %00011110
  1820.     dc.b    %00000011
  1821.     dc.b    %00000011
  1822.     dc.b    %01111110
  1823.     dc.b    %00000000
  1824. ; '4'
  1825.     dc.b    %00000011
  1826.     dc.b    %00000110
  1827.     dc.b    %00001100
  1828.     dc.b    %00011000
  1829.     dc.b    %00110011
  1830.     dc.b    %01111111
  1831.     dc.b    %00000011
  1832.     dc.b    %00000000
  1833. ; '5'
  1834.     dc.b    %01111111
  1835.     dc.b    %01100000
  1836.     dc.b    %01100000
  1837.     dc.b    %00111110
  1838.     dc.b    %00000011
  1839.     dc.b    %00000011
  1840.     dc.b    %01111110
  1841.     dc.b    %00000000
  1842. ; '6'
  1843.     dc.b    %00111111
  1844.     dc.b    %01100000
  1845.     dc.b    %01100000
  1846.     dc.b    %01111110
  1847.     dc.b    %01100011
  1848.     dc.b    %01100011
  1849.     dc.b    %00111110
  1850.     dc.b    %00000000
  1851. ; '7'
  1852.     dc.b    %01111111
  1853.     dc.b    %00000011
  1854.     dc.b    %00000110
  1855.     dc.b    %00001100
  1856.     dc.b    %00011000
  1857.     dc.b    %00110000
  1858.     dc.b    %01100000
  1859.     dc.b    %00000000
  1860. ; '8'
  1861.     dc.b    %00111110
  1862.     dc.b    %01100011
  1863.     dc.b    %01100011
  1864.     dc.b    %00111110
  1865.     dc.b    %01100011
  1866.     dc.b    %01100011
  1867.     dc.b    %00111110
  1868.     dc.b    %00000000
  1869. ; '9'
  1870.     dc.b    %00111110
  1871.     dc.b    %01100011
  1872.     dc.b    %01100011
  1873.     dc.b    %00111111
  1874.     dc.b    %00000011
  1875.     dc.b    %00000011
  1876.     dc.b    %01111110
  1877.     dc.b    %00000000
  1878. ; ':'
  1879.     dc.b    %00000000
  1880.     dc.b    %00000000
  1881.     dc.b    %00000000
  1882.     dc.b    %00000000
  1883.     dc.b    %00000000
  1884.     dc.b    %00000000
  1885.     dc.b    %00000000
  1886.     dc.b    %00000000
  1887. ; ';'
  1888.     dc.b    %00000000
  1889.     dc.b    %00000000
  1890.     dc.b    %00000000
  1891.     dc.b    %00000000
  1892.     dc.b    %00000000
  1893.     dc.b    %00000000
  1894.     dc.b    %00000000
  1895.     dc.b    %00000000
  1896. ; "<"
  1897.     dc.b    %00000000
  1898.     dc.b    %00000000
  1899.     dc.b    %00000000
  1900.     dc.b    %00000000
  1901.     dc.b    %00000000
  1902.     dc.b    %00000000
  1903.     dc.b    %00000000
  1904.     dc.b    %00000000
  1905. ; "="
  1906.     dc.b    %00000000
  1907.     dc.b    %00000000
  1908.     dc.b    %00000000
  1909.     dc.b    %00000000
  1910.     dc.b    %00000000
  1911.     dc.b    %00000000
  1912.     dc.b    %00000000
  1913.     dc.b    %00000000
  1914. ; ">"
  1915.     dc.b    %00000000
  1916.     dc.b    %00000000
  1917.     dc.b    %00000000
  1918.     dc.b    %00000000
  1919.     dc.b    %00000000
  1920.     dc.b    %00000000
  1921.     dc.b    %00000000
  1922.     dc.b    %00000000
  1923. ; '?'
  1924.     dc.b    %00111110
  1925.     dc.b    %01100011
  1926.     dc.b    %00000011
  1927.     dc.b    %00000110
  1928.     dc.b    %00001100
  1929.     dc.b    %00000000
  1930.     dc.b    %00001100
  1931.     dc.b    %00000000
  1932. ; "@"
  1933.     dc.b    %00000000
  1934.     dc.b    %00000000
  1935.     dc.b    %00000000
  1936.     dc.b    %00000000
  1937.     dc.b    %00000000
  1938.     dc.b    %00000000
  1939.     dc.b    %00000000
  1940.     dc.b    %00000000
  1941. ; "A"
  1942.     dc.b    %00111110
  1943.     dc.b    %01100011
  1944.     dc.b    %01100011
  1945.     dc.b    %01111111
  1946.     dc.b    %01100011
  1947.     dc.b    %01100011
  1948.     dc.b    %01100011
  1949.     dc.b    %00000000
  1950. ; "B"
  1951.     dc.b    %01111110
  1952.     dc.b    %01100011
  1953.     dc.b    %01100011
  1954.     dc.b    %01111110
  1955.     dc.b    %01100011
  1956.     dc.b    %01100011
  1957.     dc.b    %01111110
  1958.     dc.b    %00000000
  1959. ; 'C'
  1960.     dc.b    %00111111
  1961.     dc.b    %01110000
  1962.     dc.b    %01100000
  1963.     dc.b    %01100000
  1964.     dc.b    %01100000
  1965.     dc.b    %01110000
  1966.     dc.b    %00111111
  1967.     dc.b    %00000000
  1968. ; 'D'
  1969.     dc.b    %01111110
  1970.     dc.b    %01100011
  1971.     dc.b    %01100011
  1972.     dc.b    %01100011
  1973.     dc.b    %01100011
  1974.     dc.b    %01100011
  1975.     dc.b    %01111110
  1976.     dc.b    %00000000
  1977. ; 'E'
  1978.     dc.b    %01111111
  1979.     dc.b    %01100000
  1980.     dc.b    %01100000
  1981.     dc.b    %01111100
  1982.     dc.b    %01100000
  1983.     dc.b    %01100000
  1984.     dc.b    %01111111
  1985.     dc.b    %00000000
  1986. ; 'F'
  1987.     dc.b    %01111111
  1988.     dc.b    %01100000
  1989.     dc.b    %01100000
  1990.     dc.b    %01111100
  1991.     dc.b    %01100000
  1992.     dc.b    %01100000
  1993.     dc.b    %01100000
  1994.     dc.b    %00000000
  1995. ; 'G'
  1996.     dc.b    %00111111
  1997.     dc.b    %01110000
  1998.     dc.b    %01100000
  1999.     dc.b    %01100111
  2000.     dc.b    %01100011
  2001.     dc.b    %01110111
  2002.     dc.b    %00111110
  2003.     dc.b    %00000000
  2004. ; 'H'
  2005.     dc.b    %01100011
  2006.     dc.b    %01100011
  2007.     dc.b    %01100011
  2008.     dc.b    %01111111
  2009.     dc.b    %01100011
  2010.     dc.b    %01100011
  2011.     dc.b    %01100011
  2012.     dc.b    %00000000
  2013. ; 'I'
  2014.     dc.b    %00011110
  2015.     dc.b    %00001100
  2016.     dc.b    %00001100
  2017.     dc.b    %00001100
  2018.     dc.b    %00001100
  2019.     dc.b    %00001100
  2020.     dc.b    %00011110
  2021.     dc.b    %00000000
  2022. ; 'J'
  2023.     dc.b    %00000011
  2024.     dc.b    %00000011
  2025.     dc.b    %00000011
  2026.     dc.b    %00000011
  2027.     dc.b    %01100011
  2028.     dc.b    %01110011
  2029.     dc.b    %00111111
  2030.     dc.b    %00000000
  2031. ; 'K'
  2032.     dc.b    %01100011
  2033.     dc.b    %01100110
  2034.     dc.b    %01101100
  2035.     dc.b    %01111000
  2036.     dc.b    %01101100
  2037.     dc.b    %01100110
  2038.     dc.b    %01100011
  2039.     dc.b    %00000000
  2040. ; 'L'
  2041.     dc.b    %01100000
  2042.     dc.b    %01100000
  2043.     dc.b    %01100000
  2044.     dc.b    %01100000
  2045.     dc.b    %01100000
  2046.     dc.b    %01100000
  2047.     dc.b    %01111111
  2048.     dc.b    %00000000
  2049. ; 'M'
  2050.     dc.b    %01100011
  2051.     dc.b    %01110111
  2052.     dc.b    %01101011
  2053.     dc.b    %01100011
  2054.     dc.b    %01100011
  2055.     dc.b    %01100011
  2056.     dc.b    %01100011
  2057.     dc.b    %00000000
  2058. ; 'N'
  2059.     dc.b    %01100011
  2060.     dc.b    %01110011
  2061.     dc.b    %01111011
  2062.     dc.b    %01101111
  2063.     dc.b    %01100111
  2064.     dc.b    %01100011
  2065.     dc.b    %01100011
  2066.     dc.b    %00000000
  2067. ; 'O'
  2068.     dc.b    %00111110
  2069.     dc.b    %01110111
  2070.     dc.b    %01100011
  2071.     dc.b    %01100011
  2072.     dc.b    %01100011
  2073.     dc.b    %01110111
  2074.     dc.b    %00111110
  2075.     dc.b    %00000000
  2076. ; 'P'
  2077.     dc.b    %01111110
  2078.     dc.b    %01100011
  2079.     dc.b    %01100011
  2080.     dc.b    %01111110
  2081.     dc.b    %01100000
  2082.     dc.b    %01100000
  2083.     dc.b    %01100000
  2084.     dc.b    %00000000
  2085. ; 'Q'
  2086.     dc.b    %00111110
  2087.     dc.b    %01110111
  2088.     dc.b    %01100011
  2089.     dc.b    %01100011
  2090.     dc.b    %01100011
  2091.     dc.b    %01110111
  2092.     dc.b    %00111111
  2093.     dc.b    %00000000
  2094. ; 'R'
  2095.     dc.b    %01111110
  2096.     dc.b    %01100011
  2097.     dc.b    %01100011
  2098.     dc.b    %01111110
  2099.     dc.b    %01100011
  2100.     dc.b    %01100011
  2101.     dc.b    %01100011
  2102.     dc.b    %00000000
  2103. ; 'S'
  2104.     dc.b    %00111111
  2105.     dc.b    %01100000
  2106.     dc.b    %01100000
  2107.     dc.b    %00111110
  2108.     dc.b    %00000011
  2109.     dc.b    %00000011
  2110.     dc.b    %01111110
  2111.     dc.b    %00000000
  2112. ; 'T'
  2113.     dc.b    %01111111
  2114.     dc.b    %00011100
  2115.     dc.b    %00011100
  2116.     dc.b    %00011100
  2117.     dc.b    %00011100
  2118.     dc.b    %00011100
  2119.     dc.b    %00011100
  2120.     dc.b    %00000000
  2121. ; 'U'
  2122.     dc.b    %01100011
  2123.     dc.b    %01100011
  2124.     dc.b    %01100011
  2125.     dc.b    %01100011
  2126.     dc.b    %01100011
  2127.     dc.b    %01110111
  2128.     dc.b    %00111110
  2129.     dc.b    %00000000
  2130. ; 'V'
  2131.     dc.b    %01100011
  2132.     dc.b    %01100011
  2133.     dc.b    %01100011
  2134.     dc.b    %01100011
  2135.     dc.b    %01100011
  2136.     dc.b    %00110110
  2137.     dc.b    %00011100
  2138.     dc.b    %00000000
  2139. ; 'W'
  2140.     dc.b    %01100011
  2141.     dc.b    %01100011
  2142.     dc.b    %01100011
  2143.     dc.b    %01100011
  2144.     dc.b    %01101011
  2145.     dc.b    %01110111
  2146.     dc.b    %01100011
  2147.     dc.b    %00000000
  2148. ; 'X'
  2149.     dc.b    %01100011
  2150.     dc.b    %01100011
  2151.     dc.b    %00110110
  2152.     dc.b    %00001000
  2153.     dc.b    %00110110
  2154.     dc.b    %01100011
  2155.     dc.b    %01100011
  2156.     dc.b    %00000000
  2157. ; 'Y'
  2158.     dc.b    %01100011
  2159.     dc.b    %01100011
  2160.     dc.b    %01110111
  2161.     dc.b    %00111111
  2162.     dc.b    %00000011
  2163.     dc.b    %00000111
  2164.     dc.b    %01111110
  2165.     dc.b    %00000000
  2166. ; 'Z'
  2167.     dc.b    %01111111
  2168.     dc.b    %00000011
  2169.     dc.b    %00000110
  2170.     dc.b    %00001100
  2171.     dc.b    %00011000
  2172.     dc.b    %00110000
  2173.     dc.b    %01111111
  2174.     dc.b    %00000000
  2175.  
  2176.     cnop    0,4
  2177.     SECTION    texture,DATA
  2178. CHUNKYPIC:
  2179.     incbin    "texture.CHK"
  2180.  
  2181.  
  2182.     Section schermovuoto,BSS_C
  2183. VUOTO:
  2184.     ds.b    40*256
  2185.  
  2186.     end        
  2187.